Option Explicit
Sub H_Sample010()
    'ϥΦbH_Sample002s@XӪϪ
    Dim myCht As Chart
    Dim mySht As Worksheet
    Dim myStr As String
    Dim myFml As Variant
    Dim myRng As Range
    Dim i     As Long
    Dim myAr  As Variant
    myAr = Array("tCW", "ئWd", "ƽd")		'Dw
    Set mySht = ThisWorkbook.Worksheets(1)		'Ϫ
    Set myCht = mySht.ChartObjects(mySht.ChartObjects.Count).Chart
    myStr = myCht.SeriesCollection(1).Formula
    myStr = Mid(myStr, Len("=SERIES(") + 1)
    myFml = Split(myStr, ",")
    myStr = ""
    For i = 0 To UBound(myFml) - 1
        Set myRng = Nothing
        On Error Resume Next
        Set myRng = Application.Evaluate(myFml(i))
        On Error GoTo 0
        If Not myRng Is Nothing Then
            myStr = myStr & myAr(i) & ":" & myRng.Parent.Parent.Name & ":" & _
            myRng.Parent.Name & ":" & myRng.Address & vbCrLf
        End If
    Next
    MsgBox myStr
    Set mySht = Nothing						'
    Set myCht = Nothing
End Sub
